   1 . PUZZLE
   2 .BY BOB WISEMAN
   3 .PLAYS LIKE "15 PUZZLE",
   4 .USING JOYSTICK to MOVE LETTERS
   5 FC=11
   7 V=400
  10 clear 
  12 NT=1
  15 box -2,0,75,75,1
  16 box -2,0,73,73,3
  20 E=0;A=25
  30 for Y=1to 24
  31 @(Y)=Y+64
  35 gosub 400;next Y
  40 @(25)=32;gosub 400
  50 if TR(1)=1U=1
  60 if E=0B=rnd (4);goto 100
  70 I=JX(1);J=JY(1)
  80 if I=0if J=0goto 70
  90 if Iif Jgoto 70
  91 B=0
  92 if J B=J+2
  94 if I B=3-I
 100 X=A-Adiv 5mul 5
 110 if B=2if X=1goto 300
 120 if B=4if X=0goto 300
 130 if B=3if A>20goto 300
 140 if B=1if A<6goto 300
 150 if B=1D=A-5
 160 if B=2D=A-1
 170 if B=3D=A+5
 180 if B=4D=A+1
 190 X=@(D);@(D)=32;@(A)=X
 192 if E=1goto 200
 193 V=V-1;A=D
 194 if V<200for Y=1to 25;gosub 400;next Y;E=1;goto 50
 196 goto 50
 200 Y=D;gosub 400
 210 Y=A;gosub 400
 220 A=D
 221 if U=0goto 50
 222 U=0
 225 Y=0
 230 for X=1to 25
 235 if X=Agoto 250
 240 if @(X)<Ygoto 50
 245 Y=@(X)
 250 next X
 260 for X=1to 25
 270 MU=X;next X
 280 goto 10
 300 if E=0goto 50
 302 for X=1to 5
 304 MU=X;next X
 310 goto 50
 400 MU=@(Y)
 405 Z=Y-1
 410 CX=-30+(Z-Zdiv 5mul 5)mul 13
 420 CY=30-Zdiv 5mul 14
 430 TV=@(Y)
 440 return 
:return ;run 
